-- stack: in.2
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2738
-- card count: 4
-- first card id: 3191
-- list block id: 4565
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 334432 bytes
-- stack block size: 4608 bytes
-- created by hypercard version: 0x01228000
-- compacted by hypercard version: 0x01258000
-- modified by hypercard version: 0x01258000
-- opened by hypercard version: 0x01258000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0xFFFB753B3F7FE7C3
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack
  go to card build
  set lockscreen to true
  choose browse tool
  put the long name of this stack into temp
  go to card "default"
  put FontName() into rss
  put rss into card fld fonttypes
  go to card build
  answer "Is this a new or old system" with "Help" or "Old" or "New"
  if it is "New" then
    go to card "full"
    put card fld "ques1" into x
    if x is empty then
      go to card build
      answer "Click on Build Expert System to begin." with "Help" or "OK"
      if it is "Help" then
        show card fld help
      end if


    else
      answer "There is already a system here" with "OK"
    end if

  end if
  if it is "Old" then
    go to card "full"
    put card fld "ques1" into x
    if x is empty then
      answer "There is no system to work on" with "OK"
      go to card build
      show card fld help
      answer "Click on Built Expert System to begin." with "OK"
    end if

  end if
  if it is "Help" then
    go to card build
    show card fld help
    get FindInField(card fld help,"Step 1","",0)
  end if


end openStack
on closeStack

  update
  hide msg box
  domenu "Compact Stack"
end closeStack

on update

  set lockscreen to true
  put "Updating stack....." into msg box
  put the short name of this card into x
  if x = "build" then
    exit update
    hide msg box
  end if

  if x = "default" then
    domenu "back"
    put the short name of this card into x
    if x = "build" then
      exit update
    end if

  else
    put cd fld "ans count" into ans
    put cd fld "con count" into con
    put cd fld "cd count" into cdc
    put cd fld "dqcount" into dq
    put cd fld "dccount" into dc

    go to card "fulltoo"
    go to next card
    put the number of cards into tot
    multiply tot by 2

    repeat tot times

      put the number of card flds into fldcount
      put the short name of this card into cdcount
      if fldcount < 20 or cdcount = "fulltoo" then

        go to next card
        next repeat
      else

        put ans into card fld "ans count"
        put con into card fld "con count"
        put cdc into card fld "cd count"
        put dc into card fld "dccount"
        put dq into card fld "dqcount"
      end if



      go to next card
    end repeat
  end if
  hide msg

  set lockscreen to false

end update


on idle
  hide menubar
end idle